home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / wb / IconImage.lha / MakeDraws4Icons < prev   
Encoding:
Text File  |  1994-11-20  |  475 b   |  24 lines
  1. ;Script to create directories for Drawer Icons.
  2.  
  3. FailAt 11
  4.     
  5. c:Ask "*nThis script creates drawers for draw icons.*nDo you want to proceed ?"
  6. If Not Warn
  7.    Quit
  8. EndIf 
  9.  
  10. Set Script t:MakeDirs
  11. Set Drawer `c:RequestFile Title="Select Icon Drawer" DRAWERSONLY`
  12.  
  13. Echo "*nGetting names..."
  14. c:List $Drawer LFormat="MakeDir $Drawer%m" Sub=".info" >$Script
  15. Echo "*nCreating Drawers"
  16. c:Execute $Script
  17.  
  18. c:Delete $Script >NIL:
  19.  
  20. UnSet Drawer
  21. UnSet Script
  22.  
  23. Echo "*nProcess complete." 
  24.